﻿Public Class FrmBakeLotClear
    Private Sub btnEquipClear_Click(sender As Object, e As EventArgs) Handles btnEquipClear.Click
        'ADD 苗 2018/8/13 BEGIN
        Dim objDbEquipMat As New clsDbEquipMat
        If txtEquipNo.Text.Length <= 0 Then
            MsgBox(getMsgStr("MSG00020", Label22.Text))
            txtEquipNo.Focus()
            Exit Sub
        End If

        If MsgBox(getMsgStr("MSG00117", "是否需要清空固化炉内的LOT？"), MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            objDbEquipMat.delLotDataForEquipNo(txtEquipNo.Text)
            MsgBox(getMsgStr("MSG00117", txtEquipNo.Text & "固化炉内LOT已清空。"))
            txtEquipNo.Text = ""
        End If
        'ADD 苗 2018/8/13 End
    End Sub
End Class